home *** CD-ROM | disk | FTP | other *** search
/ Merciful 1 / Merciful - Disc 1.iso / software / a / ami_express_professional / amiexpressprofessionalv4.0.dms / amiexpressprofessionalv4.0.adf / INSTALL < prev    next >
Text File  |  1995-03-20  |  3KB  |  92 lines
  1. ; Installation Script for AmiExpress Installation
  2. ; Written by Jens Langner - /X Dev Team - Done on 30.9.1993
  3. ; Copyright (c) LightSpeed Technologies 1993
  4.  
  5. ; **** Memory Check ****
  6. (set mem (database "total-mem"))
  7. (set mem (/ mem 1024000))
  8. (if (< mem 1)
  9.     (abort "Your system only has " mem " meg(s) of ram.  AmiExpress requires at least one "
  10.         "megs of ram.  ")
  11. )
  12.  
  13. ; **** Working Check ****
  14. (set workbench (getversion))
  15. (set work (/ workbench 65536))
  16. (set wb (if (>= work 37) 2 1))
  17. (if (< work 2)
  18.     (abort "This release of AmiExpress requires at least version Workbench 2.04!  Please "
  19.        "call your local distributor for details on the Workbench 1.3 release."
  20.     )
  21. )
  22.  
  23. ; **** Regular Installation ****
  24.  
  25. (set install_dir "")
  26. (while (= install_dir "")
  27.  (set install_dir
  28.   (askdir
  29.    (prompt "On which Device would you like to install AmiExpress"
  30.      (help @askdir-help)
  31.      (default @default-dest)
  32.    )
  33.   )
  34.  ) 
  35. )
  36.  
  37. (if (< (getdiskspace install_dir) 2000000)
  38.   (abort "The Disk you selected doesn`t have enough room for the whole "
  39.     "Installation of AmiExpress. Please pick another disk, or reformat this "
  40.     "one for more room. "
  41.   )
  42. )
  43.  
  44. (complete 16)
  45. (message ('\nSTART INSTALLATION on device "%s" now ? \n\n' install_dir)
  46.   "Extracting Files will take a while, please wait.....")
  47. (set rextract ('AmiExInstall:c/lha -q x AmiExInstall:MAIN.LHA "%s"' install_dir))
  48. (run (rextract))
  49.  
  50. (complete 32)
  51. (copyfiles 
  52.   (source "AmiExInstall:UPDATE/Aedoc4.guide")
  53.    (dest ("%sDOCUMENTATION/" install_dir))
  54.   (files)
  55.   (safe)
  56. )
  57.  
  58. (complete 48)
  59. (copyfiles 
  60.   (source "AmiExInstall:UPDATE/Express")
  61.   (dest ("%sBBS/" install_dir))
  62.   (files)
  63.   (safe)
  64. )
  65.  
  66. (complete 64)
  67. (copyfiles 
  68.   (source "AmiExInstall:UPDATE/Acp")
  69.   (dest ("%sWBSTARTUP/" install_dir))
  70.   (files)
  71.    (safe)
  72. )
  73.  
  74. (complete 80)
  75. (startup "AmiExpress AssignList"
  76.   (prompt "Would you like to store the AmiExpess`s Assigns in your User-Startup ? ")
  77.   (help @startup-help)
  78.   (command ('ASSIGN BBS: "%sBBS" \nASSIGN UTILS: BBS: \nASSIGN DOORS: BBS:DOORS/ \nPATH BBS: UTILS: DOORS: add \nMOUNT NULL: \nMOUNT CNN:' install_dir))
  79. )
  80.  
  81. (complete 100)
  82. (exit "-----------------------------------------------------\n"
  83.   "Take your Documentation now and go through all ConfigIcons"
  84.   " - configurate AmiExpress to your personal needs. If you got"
  85.   "problems with configurate AmiExpress correct, contact your"
  86.   "local AmiExpress distributor. Thanks for using the installing"
  87.   "script written by\n Jens Langner - /X DevTeam\n"
  88.   "-----------------------------------------------------"
  89.   )
  90.  
  91. ; END OF INSTALLTION SCRIPT
  92.